﻿Imports lbGlobalcom
Public Class cValidaciones
    Private lDsMovi As dsMovimiento
    Private lDsComp As dsCompras
    Private lDsCar As dsCartera
    Public Sub New(ByVal dsMovi As dsMovimiento)
        lDsMovi = dsMovi
    End Sub
    Public Sub New(ByVal dsCom As dsCompras)
        lDsComp = dsCom
    End Sub
    Public Sub New(ByVal dsCar As dsCartera)
        lDsCar = dsCar
    End Sub

    Public Function ValidaMovimiento(ByVal docEs As String) As String
        Try
            Dim Mensaje As String = ""
            If lDsMovi.MOV_MOVIMIENTO.Rows.Count > 0 Then
                If lDsMovi.MOV_MOVIMIENTO.Rows(0).Item("IDDOCUMENTO").ToString.Length = 0 Then
                    Mensaje &= " Documento,"
                End If
                If lDsMovi.MOV_MOVIMIENTO.Rows(0).Item("NUMERO").ToString.Length = 0 Then
                    Mensaje &= " Numero Documento,"
                End If
                If lDsMovi.MOV_MOVIMIENTO.Rows(0).Item("IDSEDE").ToString.Length = 0 Then
                    Mensaje &= " Sede,"
                End If
                If lDsMovi.MOV_MOVIMIENTO.Rows(0).Item("IDBODEGAORIGEN").ToString.Length = 0 And (docEs = 4 Or docEs = 3 Or docEs = 6) Then
                    Mensaje &= " Bodega Origen,"
                End If
                If lDsMovi.MOV_MOVIMIENTO.Rows(0).Item("IDBODEGADESTINO").ToString.Length = 0 And (docEs = 1 Or docEs = 5 Or docEs = 3) Then
                    Mensaje &= " Bodega Destino,"
                End If
                If lDsMovi.MOV_MOVIMIENTO.Rows(0).Item("IDTERCERO").ToString.Length = 0 And (docEs = 4 Or docEs = 5 Or docEs = 6) Then
                    Mensaje &= " Id Tercero,"
                End If
                If lDsMovi.MOV_MOVIMIENTO.Rows(0).Item("IDLISTA").ToString.Length = 0 Then
                    Mensaje &= " Lista de Precios,"
                End If
                If lDsMovi.MOV_MOVIMIENTO.Rows(0).Item("IDCANAL").ToString.Length = 0 And (docEs = 4 Or docEs = 6) Then
                    Mensaje &= " Canal,"
                End If
                If lDsMovi.MOV_MOVIMIENTO.Rows(0).Item("IDCAJA").ToString.Length = 0 And docEs = 4 Then
                    Mensaje &= " Cajero(a),"
                End If
                If lDsMovi.MOV_MOVIMIENTO.Rows(0).Item("NOFACCOMCEL").ToString.Length = 0 And docEs = 5 Then
                    Mensaje &= " Numero de Factura,"
                End If

                If Mensaje.Length > 0 Then
                    Mensaje = "Faltan datos por ingresar: " & Mensaje
                End If
            Else
                Mensaje = "Faltan datos por ingresar: "
            End If
            Return Mensaje
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ValidaOrdenCompra(ByVal docEs As String) As String
        Try
            Dim Mensaje As String = ""
            If lDsComp.COM_ENCABEZADOORDENCOMPRA.Rows.Count > 0 Then
                If lDsComp.COM_ENCABEZADOORDENCOMPRA.Rows(0).Item("TIPODOC").ToString.Length = 0 Then
                    Mensaje &= " Documento,"
                End If
                If lDsComp.COM_ENCABEZADOORDENCOMPRA.Rows(0).Item("NUMERO").ToString.Length = 0 Then
                    Mensaje &= " Numero Documento,"
                End If
                If lDsComp.COM_ENCABEZADOORDENCOMPRA.Rows(0).Item("IDCCOSTO").ToString.Length = 0 Then
                    Mensaje &= " Ccosto,"
                End If
                If lDsComp.COM_ENCABEZADOORDENCOMPRA.Rows(0).Item("BODEGAPARA").ToString.Length = 0 Then
                    Mensaje &= " Bodega Para,"
                End If
                If lDsComp.COM_ENCABEZADOORDENCOMPRA.Rows(0).Item("SUCURSALGLOBALCOM").ToString.Length = 0 Then
                    Mensaje &= " Sede,"
                End If
                If lDsComp.COM_ENCABEZADOORDENCOMPRA.Rows(0).Item("IDPROVEEDOR").ToString.Length = 0 Then
                    Mensaje &= " Id Proveedor,"
                End If
                If lDsComp.COM_ENCABEZADOORDENCOMPRA.Rows(0).Item("IDFORMAPAGO").ToString.Length = 0 Then
                    Mensaje &= " Forma de Pago,"
                End If
                If lDsComp.COM_ENCABEZADOORDENCOMPRA.Rows(0).Item("IDCENTROSUMI").ToString.Length = 0 Then
                    Mensaje &= " Centro Suministrador,"
                End If
                If lDsComp.COM_ENCABEZADOORDENCOMPRA.Rows(0).Item("NUMEROPEDIDO").ToString.Length = 0 Then
                    Mensaje &= " Numero Pedido,"
                End If
                If Mensaje.Length > 0 Then
                    Mensaje = "Faltan datos por ingresar: " & Mensaje
                End If
            Else
                Mensaje = "Faltan datos por ingresar: "
            End If
            Return Mensaje
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function validaCartera(ByVal docEs As String) As String
        Try
            Dim Mensaje As String = ""
            If lDsCar.CAR_RECIBOSCAJA.Rows.Count > 0 Then
                If lDsCar.CAR_RECIBOSCAJA.Rows(0).Item("IDDOCUMENTO").ToString.Length = 0 Then
                    Mensaje &= " Documento,"
                End If
                If lDsCar.CAR_RECIBOSCAJA.Rows(0).Item("NUMERO").ToString.Length = 0 Then
                    Mensaje &= " Numero Documento,"
                End If
                If lDsCar.CAR_RECIBOSCAJA.Rows(0).Item("IDTERCERO").ToString.Length = 0 Then
                    Mensaje &= " Tercero,"
                End If
                If lDsCar.CAR_RECIBOSCAJA.Rows(0).Item("IDTIPOPAGO").ToString.Length = 0 Then
                    Mensaje &= " Forma de Pago,"
                End If
                If lDsCar.CAR_RECIBOSCAJA.Rows(0).Item("VALORRECIBO").ToString.Length = 0 Then
                    Mensaje &= " Valor Recibo,"
                End If
                'If lDsCar.CAR_RECIBOSCAJA.Rows(0).Item("IDMEDIOPAGO").ToString.Length = 0 Then
                '    Mensaje &= " Medio de pago,"
                'End If
                If Mensaje.Length > 0 Then
                    Mensaje = "Faltan datos por ingresar: " & Mensaje
                End If
            Else
                Mensaje = "Faltan datos por ingresar: "
            End If
            Return Mensaje
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ValidaRegistroPlan(ByVal docEs As String) As String
        Try
            Dim Mensaje As String = ""
            If lDsMovi.MOV_PLAN.Rows.Count > 0 Then
                If lDsMovi.MOV_PLAN.Rows(0).Item("IDDOCUMENTO").ToString.Length = 0 Then
                    Mensaje &= " Documento,"
                End If
                If lDsMovi.MOV_PLAN.Rows(0).Item("NUMERO").ToString.Length = 0 Then
                    Mensaje &= " Numero Documento,"
                End If
                If lDsMovi.MOV_PLAN.Rows(0).Item("IDSEDE").ToString.Length = 0 Then
                    Mensaje &= " Sede,"
                End If
                If lDsMovi.MOV_PLAN.Rows(0).Item("IDBODEGAORIGEN").ToString.Length = 0 Then
                    Mensaje &= " Bodega Origen,"
                End If
                If lDsMovi.MOV_PLAN.Rows(0).Item("IDTERCERO").ToString.Length = 0 Then
                    Mensaje &= " Id Tercero,"
                End If
                If lDsMovi.MOV_PLAN.Rows(0).Item("IDVENDEDOR").ToString.Length = 0 Then
                    Mensaje &= " Id Vendedor,"
                End If
                If lDsMovi.MOV_PLAN.Rows(0).Item("IDLISTA").ToString.Length = 0 Then
                    Mensaje &= " Lista de Precios,"
                End If
                If lDsMovi.MOV_PLAN.Rows(0).Item("IDCANAL").ToString.Length = 0 Then
                    Mensaje &= " Canal,"
                End If
                If lDsMovi.MOV_PLAN.Rows(0).Item("IDCAJA").ToString.Length = 0 Then
                    Mensaje &= " Cajero(a),"
                End If
                If lDsMovi.MOV_PLAN.Rows(0).Item("IDFORMAPAGO").ToString.Length = 0 And docEs = 5 Then
                    Mensaje &= " Forma de Pago,"
                End If

                If Mensaje.Length > 0 Then
                    Mensaje = "Faltan datos por ingresar: " & Mensaje
                End If
            Else
                Mensaje = "Faltan datos por ingresar: "
            End If
            Return Mensaje
        Catch ex As Exception
            Throw ex
        End Try
    End Function


End Class
